COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "LINTST"
C00004 ENDMK
C⊗;
BEGIN "LINTST"
REQUIRE "VIXHDR.SAI[VIS,HPM]" SOURCE_FILE;
REQUIRE "PICGRA.SAI[VIS,HPM]" SOURCE_FILE;
INTEGER I,J,K,L,M;

DDINIT;
   BEGIN
   INTEGER ARRAY PIC[0:PIXDIM(481,512,9)];
   REAL X,XX,SX,CX;
   MAKPIX(481,512,9,PIC[0]); PSCREEN(0,0,1,1,PIC[0]);
   FOR X←0 STEP 10 UNTIL 359 DO
      BEGIN
      XX←X*3.14159265/180; CX←0.5*COS(XX); SX←0.5*SIN(XX);
      THIN(.5+CX,.5+SX,.5-CX,.5-SX,0.5);
      END;
   BALL(0,0,1,1,0.5);
   MAPGRY(1,PIC[BYBI]); GRAY(PIC[0]);
   FOR I←PIC[BYBI]-1 STEP -1 UNTIL 0 DO
   IF SYNMAP(I)>0 THEN
      BEGIN
      DRKEN; RECTAN(-100,-100,100,100);
      VIDONE(PIC[0],1 LSH (PIC[BYBI]-1-I));
      DPYUP(SYNMAP(I));
      END;
   UNGRAY(PIC[0]);
   END;

END;